Notes/Domino 6 and 7 Forum : Add to group

Hi all
i want to create add member to group on the server. i have written an agent with lotus script for it.On the save action of a document i am calling this agent thru runagent @ command.Lotus script is running fine without any error but member is not added to the group.I have given editor access and also roles (Groupcreator & GoupModifier)to default user.
this is the script i have written in agent.

Dim session As New NotesSession
Dim WS As New NotesUIWorkspace
Dim adminp As NotesAdministrationProcess
Dim UiDoc As NotesUIDocument
Dim CurDoc As NotesDocument
Dim db As NotesDatabase
Dim gp As String
Dim Memb(1) As String
Set Db=Session.CurrentDatabase

Set adminp = session.CreateAdministrationProcess(db.Server)
Set Uidoc=WS.CurrentDocument
Set CurDoc=UIDoc.Document
gp=CurDoc.HidJobRole(0)
Memb(0)=CurDoc.EUserName(0)
noteid$ = adminp.AddGroupMembers(gp , Memb)

HidJobRole & EUserName are the fields in document from which i want to add member in group.

what else can i do for this please help me if you can.

regards